home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicos2.zip
/
PRINT.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
1KB
|
33 lines
0 rem *
1 rem *
2 rem *PRINT_TEST_FOR_NITROUSBASIC
3 rem *
4 rem *
10 cls
20 print "Back ""To ""Back"" Strings"
30 print "Back "+"To "+"Back"+" Strings"
40 print "Back ";"To ";"Back";" Strings"
50 A$="Back ""To ""Back"" Strings"
60 print A$
70 A$="Back "+"To "+"Back"+" Strings"
80 print A$
90 print :print :print :print "(Blank lines)"
100 A=123.456 :print "Number: ";A
110 print "Number: ";A;"..and strings..";A$;"..Wow""...."
115 print "Full string expressions and numeric expressions:"
220 print cos (sin (cos (sin (cos (sin (cos (sin (len ("Hello")))))))))
225 print "Complicated numeric expressions:"
330 print (A+2 *3 /4 )+(A+B+C+D+E)/2 *((1 /1 +3 /3 )/(A+B+C+D+1 ))
335 print "The value of a$ is '";A$;"'"
440 print "The length of A$ is ";len (A$)
450 print "The left 10 characters of a$ is '";left$ (A$,10 );"'"
500 print "The right 10 characters of a$ are '";right$ (A$,10 );"'"
510 print "The middle 4 characters of a$ starting at 9 is '";mid$ (A$,9 ,4 );"'"
520 print "The right 2 characters of the above is '";right$ (mid$ (A$,9 ,4 ),2 );"'"
530 print "The left 2 characters of the above is '";left$ (mid$ (A$,9 ,4 ),2 );"'"
540 print "All 4 letters together is '";left$ (mid$ (A$,9 ,4 ),2 );right$ (mid$ (A$,9 ,4 ),2 );"'"
550 print "Columns: ",1 ,2 ,3 ,4 ,5
560 print "Columns: ",100 ,200 ,300 ,400 ,500
570 print "Columns: ",1000 ,2000 ,3000 ,4000 ,5000
600 print :print "Enough for now...."